5 clear ;CX=0;CY=0
10 box CX-1,CY,11,11,1
20 box CX-1,CY, 9, 9,2
30 CX=0; CY=0; print "H",
:return ;run  
